unit uSwordSingerScript;

interface

uses uCommonScript, SysUtils, uParamsController, uMainData, uConstants;

const
    atSongofEarth      = 12;
    atSongofVitality   = 13;
    atSongofRenewal    = 14;
    atSongofMeditation = 15;

const
    SwordSingerReUseTime: array [12..23] of TDateTime =
    (116/86400, 117/86400, 118/86400, 119/86400,
     0, 0, 0, 0, 0, 0, 0, 0);

type
    TSwordSingerScript = class(TCommonScript)
    private
        procedure AnalisData;
 {       procedure SelfControll;   }
    public
        constructor Create;
        destructor Destroy;
  {      procedure LaunchScript;  }
    end;

implementation

constructor TSwordSingerScript.Create;
var
    i: integer;
begin
    inherited;
    for i := 12 to High(FReUseTime) do
    begin
        FReUseTime[i] := SwordSingerReUseTime[i];
    end;
end;

destructor TSwordSingerScript.Destroy;
begin
    inherited;
end;

procedure TSwordSingerScript.AnalisData;
begin
    inherited;
    AddNewAction(atSongofVitality, plLow);
    AddNewAction(atSongofEarth, plLow);
    AddNewAction(atPetFood, plLow);
    AddNewAction(atSongofRenewal, plLow);
    AddNewAction(atSongofMeditation, plLow);
end;

end.
